10 GOTO100
50 REM <YES>
51 S=54272:FORE=STOS+28:POKEE,0:NEXT
52 POKE54296,15:POKE54277,42:POKE54278,250
53 POKE54276,23:POKE54273,23:POKE54272,191
54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
55 POKE54296,0:RETURN
60 REM <N0>
61 S=54272:FORE=STOS+28:POKEE,0:NEXT
62 POKE54296,15:POKE54277,18:POKE54278,242
63 POKE54276,33:POKE54273,4:POKE54272,48
64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
65 POKE54296,0:RETURN
70 REM <BLIP>
71 S=54272:FORE=STOS+28:POKEE,0:NEXT
72 POKE54296,5:POKE54277,42:POKE54278,250
73 POKE54276,23:POKE54273,23:POKE54272,191
74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
75 POKE54296,0:RETURN
80 FORT=1TO500:NEXT:RETURN
81 FORT=1TO1000:NEXT:RETURN
82 FORT=1TO2000:NEXT:RETURN
83 FORT=1TO3000:NEXT:RETURN
84 FORT=1TO4000:NEXT:RETURN
85 FORT=1TO5000:NEXT:RETURN
90 GOSUB81:GOSUB70
91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUEDY.
92 [161]R$:[139]R$[179][177][199](32)[167]92
93 [142]
95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
105 [153]"                                        WAIT";
110 [153]"                                        WAIT";
115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
120 [153]"                                        WAIT";
125 [153]"           CHR$RADE 4     (null)ART 1           WAIT";
130 [153]"                                        WAIT";
135 [153]"               (null)ESSON 13                WAIT";
140 [153]"                                        WAIT";
145 [153]"           CHR$ENERAL  (null)ROBLEMS  OPEN          WAIT";
150 [153]"                                        WAIT";
155 [153]"                                        WAIT"
160 [153]"                  WHC ONON"
165 [141]90
170 [153]"LOAD       ATNND AWAY WE GO......."
175 [141]81:[141]50:[141]80
200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
205 [153]"  ASCIND THE PRICE OF FOUR PADS AT
210 PRINT"  12 CENTS EACH."
220 GOSUB81:GOSUB70
225 PRINT"             [145]"
230 INPUT A$
240 IFA$<>"48"ANDA$<>"48 CENTS"THEN 270
250 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
260 P=P+1:GOTO300
270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
275 IFZ=2THENG=G+1:GOTO295
280 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
290 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO225
295 PRINT"  [198]OUR PADS WILL COST 48[150] CENTS.    ":GOSUB82
297 PRINT"  4 X 12 = 48        ":GOSUB82:GOSUB90
300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
305 PRINT"  [205]ARIA BOUGHT A DOLL FOR 25 CENTS AND
310 [153]"  A BALL FOR 12 CENTS AT A GARAGE
315 PRINT"  SALE.  [198]IND THE COST OF BOTH."
320 GOSUB81:GOSUB70
325 PRINT"             [145]"
330 INPUT A$
340 IFA$<>"37"ANDA$<>"37 CENTS" THEN 370
350 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
360 P=P+1:GOTO400
370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
375 IFZ=2 THEN G=G+1:GOTO395
380 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
390 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO325
395 PRINT"  [212]HE COST OF BOTH IS 37[150] CENTS.    ":GOSUB82
397 PRINT"  25 + 12 = 37       ":GOSUB82:GOSUB90
400 PRINT"[152][147]               [209]UESTION 3 [146][159]":Z=0
405 PRINT"  [201]F [197]RIC BOUGHT A TOP FOR 9 CENTS
410 [153]"  WHAT CHANGE DID HE GET FROM A
415 PRINT"  QUARTER?"
420 GOSUB81:GOSUB70
425 PRINT"             [145]"
430 INPUT A$
440 IFA$<>"16"ANDA$<>"16 CENTS" THEN 470
450 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
460 P=P+1:GOTO500
470 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
475 IFZ=2THENG=G+1:GOTO495
480 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
490 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO425
495 PRINT"  [200]IS CHANGE WAS 16[150] CENTS.    ":GOSUB82
497 PRINT"  25 - 9 = 16        ":GOSUB82:GOSUB90
500 PRINT"[152][147]               [209]UESTION 4 [146][159]":Z=0
505 PRINT"  [193]NGUS HAD 8 MARBLES.  [215]HEN HE BOUGHT
510 [153]"  FOURTEEN MORE, HOW MANY DID HE          THEN HAVE?"
520 [141]81:[141]70
525 [153]"             ON"
530 [133] A$
540 [139]A$[179][177]"22"[175]A$[179][177]"22 MARBLES" [167] 570
550 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
560 P[178]P[170]1:[137]600
570 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
575 [139]Z[178]2[167]G[178]G[170]1:[137]595
580 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
590 [153]"OPENONON                                        ONONONONONONON":[137]525
595 [153]"  ATNNGIS HAD 22DEF MARBLES.    ":[141]82
597 [153]"  8 + 14 = 22        ":[141]82:[141]90
600 [153]"PRINT#LOAD               (null)UESTION 5 WAITOPEN":Z[178]0
605 [153]"  RIGHT$F A CLASS HAS 18 BOYS AND 21 GIRLS
610 PRINT"  HOW MANY CHILDREN ARE IN THE CLASS?"
620 GOSUB81:GOSUB70
625 PRINT"             [145]"
630 INPUT A$
640 IFA$<>"39"THEN 670
650 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
660 P=P+1:GOTO700
670 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
675 IFZ=2THENG=G+1:GOTO695
680 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
690 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO625
695 PRINT"  [212]HERE ARE 39[150] CHILDREN.    ":GOSUB82
697 PRINT"  18 + 21 = 39        ":GOSUB82:GOSUB90
700 PRINT"[152][147]               [209]UESTION 6 [146][159]":Z=0
705 PRINT"  [200]OW MUCH MUST [205]IKE PAY FOR A BUN AT
710 [153]"  12 CENTS AND A CAKE AT 50 CENTS?"
720 [141]81:[141]70
725 [153]"             ON"
730 [133] A$
740 [139]A$[179][177]"62"[175]A$[179][177]"62 CENTS" [167] 770
750 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
760 P[178]P[170]1:[137]800
770 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
775 [139]Z[178]2[167] G[178]G[170]1:[137]795
780 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
790 [153]"OPENONON                                        ONONONONONONON":[137]725
795 [153]"  (null)IKE MUST PAY 62DEF CENTS.    ":[141]82
797 [153]"  12 + 50 = 62        ":[141]82:[141]90
800 [153]"PRINT#LOAD               (null)UESTION 7 WAITOPEN":Z[178]0
805 [153]"  (null)OUIS EARNED 45 DOLLARS IN THREE
810 PRINT"  DAYS.  [200]OW MUCH DID HE EARN EACH        DAY?  (USE $) "
820 GOSUB81:GOSUB70
825 PRINT"             [145]"
830 INPUT A$
840 IFA$<>"$15"ANDA$<>"$15.00"THEN 870
850 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
860 P=P+1:GOTO900
870 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
875 IFZ=2THEN G=G+1:GOTO895
880 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
890 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO825
895 PRINT"  [200]E EARNED $15.00[150] EACH DAY.   ":GOSUB82
897 PRINT"  45 / 3 = 15        ":GOSUB82:GOSUB90
900 PRINT"[152][147]               [209]UESTION 8 [146][159]":Z=0
905 PRINT"  [201]F A CLASSROOM HAD 6 ROWS OF DESKS
910 [153]"  AND 7 DESKS IN EACH ROW, HOW MANY
915 PRINT"  DESKS ARE IN THE ROOM?"
920 GOSUB81:GOSUB70
925 PRINT"             [145]"
930 INPUT A$
940 IFA$<>"42"THEN 970
950 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
960 P=P+1:GOTO1000
970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
975 IFZ=2THEN G=G+1:GOTO995
980 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
990 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO925
995 PRINT"  [212]HERE ARE 42[150] DESKS.              ":GOSUB82
997 PRINT"  6 X 7 = 42        ":GOSUB82:GOSUB90
1000 PRINT"[152][147]               [209]UESTION 9 [146][159]":Z=0
1005 PRINT"  [194]ERTHA HAS 27 CENTS AND WANTED TO
1010 [153]"  BUY A DOLL FOR 50 CENTS AT A GARAGE
1015 PRINT"  SALE.  [200]OW MUCH MONEY MUST SHE          BORROW FROM HER BROTHER?
1020 [141]81:[141]70
1025 [153]"             ON"
1030 [133] A$
1040 [139]A$[179][177]"23"[175]A$[179][177]"23 CENTS" [167] 1070
1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
1060 P[178]P[170]1:[137]1100
1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
1075 [139]Z[178]2[167] G[178]G[170]1:[137]1095
1080 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
1090 [153]"OPENONON                                        ONONONONONONON":[137]1025
1095 [153]"  (null)HE MUST BORROW 23DEF CENTS.       ":[141]82
1097 [153]"  50 - 27 = 23       ":[141]82:[141]90
1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
1105 [153]"  (null)ARGARET WEIGHS 43KG AND (null)AY
1110 PRINT"  WEIGHS 38KG.  [200]OW MUCH HEAVIER IS
1115 [153]"  (null)ARGARET THAN (null)AY?   (USE KG)"
1120 [141]81:[141]70
1125 [153]"             ON"
1130 [133] A$
1140 [139]A$[179][177]"5KG"[175]A$[179][177]"5 KG"[167] 1170
1150 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
1160 [137]1200
1170 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
1175 [139]Z[178]2[167] G[178]G[170]1:[137]1195
1180 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
1190 [153]"OPENONON                                        ONONONONONONON":[137]1125
1195 [153]"  (null)ARGARET IS 5KGDEF HEAVIER. ":[141]82
1197 [153]"  43 - 38 = 5       ":[141]82:[141]90
1200 [153]"LOAD           (null)EPORT LENARD WAIT"
1205 D[178]W[171]G:C[178]10[171]W
1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
1215 PRINT"                 ";C
1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
1225 [153]"                 ";D
1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
1235 PRINT"                 ";G;""
1245 GOSUB90
1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
1270 IFR$="R"THENRESTORE:GOTO100
1280 PRINT"[147] [210]ETURNING TO THE MENU
1285 [147]"MENU",8
1290 [138]
1295 [128]
1300 [143] BILL CUMBERLAND 90:10:28